home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SGI Developer Toolbox 6.1
/
SGI Developer Toolbox 6.1 - Disc 4.iso
/
public
/
SciAn
/
src
/
ScianMethods.c
< prev
next >
Wrap
C/C++ Source or Header
|
1994-08-01
|
2KB
|
161 lines
/* ScianMethods.c: John R. Murray, 3-30-90
Wrappers for Method calls.
*/
#include "Scian.h"
#include "ScianTypes.h"
#include "ScianIDs.h"
#include "ScianMethods.h"
#include "ScianWindows.h"
#include "ScianScripts.h"
/* globals */
/* temporary defs to get something going */
#ifndef SETVAL
#define SETVAL 102
#endif
int SetValue(object, value)
ObjPtr object, value;
{
FuncTyp setter, changer;
ObjPtr retVal;
setter = GetMethod(object, SETVAL);
if (setter)
{
retVal = (* setter) (object, value);
}
else
{
/* all objects SHOULD have a SETVAL method */
ReportError("SetValue", "Warning: no SETVAL method");
retVal = SetObjValue(object, value);
}
return IsTrue(retVal);
}
ObjPtr GetValue(obj)
ObjPtr obj;
{
FuncTyp getter;
getter = GetMethod(obj, GETVAL);
if (getter)
{
return (*getter) (obj);
}
else
{
/* all objects SHOULD have a GETVAL method */
ReportError("GetValue", "Warning: no GETVAL method");
return GetObjValue(obj);
}
}
int ChangedValue(object)
ObjPtr object;
{
FuncTyp changer;
int retVal;
changer = GetMethod(object, CHANGEDVALUE);
if(changer)
{
InhibitLogging(true);
retVal = IsTrue((* changer) (object));
InhibitLogging(false);
return retVal;
}
else
{
return false;
}
}
int RecalcScroll(obj)
ObjPtr obj;
{
FuncTyp recalcer;
recalcer = GetMethod(obj, RECALCSCROLL);
if (recalcer)
{
return IsTrue((* recalcer) (obj));
}
else
{
return false;
}
}
#ifdef PROTO
ObjPtr CloneObject(ObjPtr obj)
#else
ObjPtr CloneObject(obj)
ObjPtr obj;
#endif
{
FuncTyp method;
method = GetMethod(obj, CLONE);
if (method)
{
return (* method)(obj);
}
else
{
return Clone(obj);
}
}
int ButtonPressed(obj)
ObjPtr obj;
{
FuncTyp buttpress;
buttpress = GetMethod(obj, BUTTONPRESSED);
if (buttpress) /* I don't get it, what's so funny? */
{
return IsTrue((* buttpress) (obj)); /* am I missing something? */
}
else
{
return false;
}
}
int Mark(obj)
ObjPtr obj;
{
FuncTyp marker;
marker = GetMethod(obj, MARK);
if (marker)
{
return IsTrue((* marker) (obj));
}
else
{
return false;
}
}
int AutoScroll(obj)
ObjPtr obj;
{
FuncTyp autoScroller;
autoScroller = GetMethod(obj, AUTOSCROLL);
if (autoScroller)
{
return IsTrue((* autoScroller) (obj));
}
else
{
return false;
}
}